-- card: 7679 from stack: in
-- bmap block id: 7832
-- flags: 0000
-- background id: 5171
-- name: Configure
----- HyperTalk script -----
--
--
--   This stack and it's scripts and graphics are copyright 1989,
--   Prophecy Software Inc.  All rights reserved.
--
--   You may examine this code for your own benifit.
--   If you wish to make changes that enhance the stack please make
--   them to a copy and contact us at:
--
--   Prophecy Software Inc.
--   3650 Silverside Rd. Suite 3
--   Wilmington, DE 19810
--   (302) 994-1502
--
--   We will be happy to consider distributing an updated version with
--   propper credit given to the author.  distribution of copies of this
--   stack with un-authorized alterations constitures copyright
--   violation and fraud.

function do_reset
global baud, bits, stop_bits, parity

get resetmodem(baud, bits, first char of parity, stop_bits)
put baud into card field "the baud"
put bits into card field "the bits"
put stop_bits into card field "the stop bits"
put parity into card field "the parity"
end do_reset

on opencard
  global baud, bits, stop_bits, parity
  put card field "the baud" into baud
  put card field "the bits" into bits
  put card field "the stop bits" into stop_bits
  put card field "the parity" into parity

  get resetmodem(baud, bits, first char of parity, stop_bits)
end opencard

on idle
  get readmodem()
  if it is 0 then exit idle

  if third word of it is "•" then exit idle
  put it into card field "the modem"

  repeat while it is not 0
    get readmodem()
    if it is not 0 then put  it after card field "the Modem"
  end repeat
end idle



-- part 1 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=55 top=64 right=81 bottom=120
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: - 300
----- HyperTalk script -----
on mouseUp
  global baud
  set hilite of button "- 300" to false
  set hilite of button "- 1200" to false
  set hilite of button "- 2400" to false
  set hilite of button "- 9600" to false
  set hilite of target to true
  get short name of target
  put second word of it into baud

  get do_reset()
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=55 top=80 right=97 bottom=120
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: - 1200
----- HyperTalk script -----
on mouseUp
  global baud
  set hilite of button "- 300" to false
  set hilite of button "- 1200" to false
  set hilite of button "- 2400" to false
  set hilite of button "- 9600" to false
  set hilite of target to true
  get short name of target
  put second word of it into baud

  get do_reset()
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=55 top=96 right=113 bottom=120
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: - 2400
----- HyperTalk script -----
on mouseUp
  global baud
  set hilite of button "- 300" to false
  set hilite of button "- 1200" to false
  set hilite of button "- 2400" to false
  set hilite of button "- 9600" to false
  set hilite of target to true
  get short name of target
  put second word of it into baud

  get do_reset()
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=55 top=112 right=129 bottom=120
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: - 9600
----- HyperTalk script -----
on mouseUp
  global baud
  set hilite of button "- 300" to false
  set hilite of button "- 1200" to false
  set hilite of button "- 2400" to false
  set hilite of button "- 9600" to false
  set hilite of target to true
  get short name of target
  put second word of it into baud

  get do_reset()
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=167 top=64 right=81 bottom=216
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: - 8
----- HyperTalk script -----
on mouseUp
  global bits
  set hilite of button "- 8" to false
  set hilite of button "- 7" to false
  set hilite of target to true
  get short name of target
  put second word of it into bits

  get do_reset()
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=167 top=80 right=97 bottom=216
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: - 7
----- HyperTalk script -----
on mouseUp
  global bits
  set hilite of button "- 8" to false
  set hilite of button "- 7" to false
  set hilite of target to true
  get short name of target
  put second word of it into bits

  get do_reset()
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=263 top=64 right=81 bottom=328
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: - Odd
----- HyperTalk script -----
on mouseUp
  global parity
  set hilite of button "- Odd" to false
  set hilite of button "- Even" to false
  set hilite of button "- None" to false
  set hilite of target to true
  get short name of target
  put second word of it into parity

  get do_reset()
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=263 top=80 right=97 bottom=328
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: - Even
----- HyperTalk script -----
on mouseUp
  global parity
  set hilite of button "- Odd" to false
  set hilite of button "- Even" to false
  set hilite of button "- None" to false
  set hilite of target to true
  get short name of target
  put second word of it into parity

  get do_reset()
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=263 top=96 right=113 bottom=328
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: - None
----- HyperTalk script -----
on mouseUp
  global parity
  set hilite of button "- Odd" to false
  set hilite of button "- Even" to false
  set hilite of button "- None" to false
  set hilite of target to true
  get short name of target
  put second word of it into parity

  get do_reset()
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=376 top=63 right=80 bottom=441
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: - 1
----- HyperTalk script -----
on mouseUp
  global stop_bits
  set hilite of button "- 1" to false
  set hilite of button "- 2" to false
  set hilite of target to true
  get short name of target
  put second word of it into stop_bits

  get do_reset()
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=375 top=80 right=97 bottom=440
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: - 2
----- HyperTalk script -----
on mouseUp
  global stop_bits
  set hilite of button "- 1" to false
  set hilite of button "- 2" to false
  set hilite of target to true
  get short name of target
  put second word of it into stop_bits

  get do_reset()
end mouseUp



-- part 15 (field)
-- low flags: 00
-- high flags: 4004
-- rect: left=159 top=164 right=183 bottom=352
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: p#


-- part 16 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=161 top=191 right=210 bottom=350
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: I'll Dial Out
----- HyperTalk script -----
on mouseUp
  put  card field "P#" into the_number
  put "PD" into mode
  if hilite of button "Tone Dial" is true then
    put "TD" into mode
  end if

  get writemodem(return & "AT" && mode && the_number & numtochar(13))

end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=391 top=159 right=177 bottom=479
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Pulse Dial
----- HyperTalk script -----
on mouseUp
  set hilite of button "Tone Dial" to false
  set hilite of target to true

end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=31 top=159 right=177 bottom=121
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Tone Dial
----- HyperTalk script -----
on mouseUp
  set hilite of button "Pulse Dial" to false
  set hilite of target to true
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=160 top=218 right=237 bottom=349
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: I'll Answer Call
----- HyperTalk script -----
on mouseUp

  get writemodem(return & "AT" && "s0=1")

end mouseUp



-- part 21 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=45 top=253 right=306 bottom=466
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: the modem


-- part 22 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=99 top=309 right=331 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Ready to Play
----- HyperTalk script -----
on mouseUp
  global whom, ship_ok
  visual effect barn door close
  if ship_ok is true then
    send whom to card "start"
  else
    go to card "player board"
  end if

end mouseUp



-- part 23 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=54 top=130 right=149 bottom=122
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: the baud


-- part 24 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=156 top=130 right=149 bottom=224
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: the bits


-- part 25 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=261 top=130 right=149 bottom=329
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: the Parity


-- part 26 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=373 top=130 right=149 bottom=441
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: the stop bits


-- part 28 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=219 top=111 right=144 bottom=261
-- title width / last selected line: 0
-- icon id / first selected line: 2507 / 2507
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  visual effect barn door open
  go to next card
end mouseUp



-- part 29 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=261 top=309 right=331 bottom=394
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cancel
----- HyperTalk script -----
on mouseUp
  global whom, ship_ok
  visual effect barn door close
  get writemodem("AT S0=0" & return)
  wait 1 second
  get readmodem()
  if it is 0 then
    go to card "start"
    exit mouseup
  end if

  repeat while it is not 0
    get readmodem()
  end repeat

  go to card "start"

end mouseUp



-- part contents for card part 15
----- text -----
9941502

-- part contents for card part 23
----- text -----
2400

-- part contents for card part 24
----- text -----
8

-- part contents for card part 26
----- text -----
1

-- part contents for card part 25
----- text -----
None

-- part contents for card part 21
----- text -----
at s0=0

OK